﻿<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<%
Response.ContentType="application/json"
Response.Charset = "UTF-8"
%>
<!--#include file="FunctionList.asp"-->
<%
'On Error Resume Next
Dim keys,types,html,url
keys = Server.URLEncode(htmlspecialchars(Request.Form("searchKey")))
types = htmlspecialchars(Request.Form("videoType"))
url = "http://api.tudou.com/v3/gw?method=item.search&appKey=myKey&format=json&kw=" & keys & "&pageNo=1&pageSize=20&channelId=" & types & "&inDays=7&media=v&sort=s"
html = file_get_contents(url,"")
Response.Clear()
Response.Write(html)
Response.End()
%>